100 REM ******* TUT-EN AMUN ***********
110 REM *******************************
120 REM ******* WOLKE *****************
130 DATA 0,28,0,124,62,0,254,126,0,255,255,0,255,255,128,255,255,224,255,255,240
140 DATA 255,255,240,255,255,240,127,255,240,127,255,224
150 FORI=0TO32:READQ:POKE832+I,Q:NEXT
160 FORI=33TO62:POKEI+832,0:NEXT:V=53248:POKEV+16,0:I=RND(-TI)
170 POKE2040,13:POKE2041,13:POKEV+39,1:POKEV+40,1:POKEV+29,2:POKEV+21,0
180 REM ******* SONNE ******************
190 DATA 0,016,0,0,16,0,16,16,0,8,144,136,4,145,16,2,90,32,9,126,64,6,255,144,3
200 DATA 255,224,1,255,128,255,255,254,1,255,128,1,255,96,2,127,16,4,124,128,0
210 DATA 170,64,1,41,32,2,72,16,4,8,0,0,8,0,0,8,0
220 FORI=0TO62:READQ:POKE704+I,Q:NEXT
230 POKE2042,11:POKEV+41,7
240 POKE53280,0:POKE53281,0:PRINTCHR$(14)
250 WK=40000+INT(RND(1)*20000):VW=700+INT(RND(1)*500):W2=19
260 REM ****** ANFANG ****************
270 PRINT"[147][158] [196]ER [208]HARAO [212][213][212]-[197][206][195][200] [193][205][207][206] GIBT [201]HNEN"
280 PRINT" DIE EHRENVOLLE [193]UFGABE, DER [197]RBAUER"
290 PRINT" SEINER [208]YRAMIDE ZU SEIN."
300 PRINT" [197]R GIBT [201]HNEN 13 [202]AHRE."
310 PRINT" [211]IE ERHALTEN DIE [208]ROVINZ [193][204]-[208][193][210][193][211][195][200][193]"
320 PRINT" UM [193]RBEITER ZU BESORGEN"
330 PRINT" [206]EHMEN SIE DIESE [197]HRE AN ? ";
340 POKE204,0:POKE198,0:WAIT198,1:GETA$:IFA$<>"J"ANDA$<>"N"THEN340
350 POKE204,1:IFA$="J"THEN380
360 PRINT:PRINT" [198]UER DIESE [198]RECHHEIT WERDEN [211]IE "
370 PRINT" VON [204]OEWEN ZERRISSEN.[144]":END
380 P=100000:G=200:PG=0:JA=1:F=1500:AB=0:TE=0:JE=13
390 KO$="[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][146]"
400 AL$="[147][158]      [193][204]-[208][193][210][193][211][195][200][193] [146]  [202]AHR :"
410 PRINTAL$;JA:PRINTKO$
420 PRINT" [197]INWOHNER   : "P
430 PRINT" [211]PEICHER    : "G
440 PRINT" [198]ELDER      : "F
450 PRINT" [215]IEVIEL [197]INWOHNER SOLLEN ZUM"
460 INPUT" [198]RONDIENST HERANGEZOGEN WERDEN";AB$:AB=VAL(AB$):IFAB<0ORAB>PTHEN940
470 P=P-AB:PRINT" [215]IEVIEL [211]PEICHER MIT [203]ORN BEKOMMEN DIE"
480 INPUT" [193]RBEITER ZUGETEILT";AK$:AK=INT(VAL(AK$)):IFAK<0ORAK>GTHEN940
490 G=G-AK:IFAK<(AB/VW)THENTA=1:AL=INT(AK*VW):AL=AB-AL:AB=AB-AL:IS=IS+AL
500 PRINT" [215]IEVIEL [211]PEICHER BEKOMMEN DIE"P
510 INPUT" ANDEREN [197]INWOHNER";EK$:EK=INT(VAL(EK$)):IFEK<0OREK>GTHEN940
520 G=G-EK:IFEK<(P/VW)THENET=1:EL=INT(EK*VW):EL=P-EL:P=P-EL:IS=IS+EL
530 PRINT" [215]IEVIEL [198]ELDER SOLLEN BESTELLT"
540 INPUT" WERDEN ";FB$:FB=INT(VAL(FB$)):IFFB<0ORFB>FTHEN940
550 FORI=1TO500:NEXT:PRINTAL$;JA:PRINTKO$
560 IFFB>(G*25)THENFB=INT(G*25):PRINT"[211]IE KOENNEN NUR"FB" [198]ELDER BESTELLEN.":U=1
570 IFINT(FB*9)>PTHENFB=INT(P/9):PRINT"[211]IE HABEN ZU WENIG [194]AUERN. [198]ELDER :"FB:U=1
580 IFU=1THENU=0:FORI=1TO4000:NEXT
590 IFP=0ORAB=0THEN940
600 G=G-INT(FB/25)
610 PG=INT(50*RND(1))/100
620 PRINTAL$;JA:PRINTKO$:PRINT" [196]IE [197]RNTE BETRUG IN DIESEM [202]AHR"
630 PRINTPG" [211]PEICHER PRO [198]ELD.":G=G+(PG*FB)
640 IFET=1THENET=0:PRINT" [210]EBELLION DER [197]INWOHNER WEGEN [200]UNGER.":PRINT" [197]INWOHNER :"P
650 IFTA=1THENTA=0:PRINT" [210]EBELLION DER [193]RBEITER WEGEN [200]UNGER":PRINT" [193]RBEITER :"AB
660 G=INT(G):PRINT" [211]IE HABEN NUN"G" [211]PEICHER VOLL."
670 W=INT(W2*RND(1)+1)
680 FORI=1TO5000:NEXT:PRINTAL$;JA:PRINTKO$
690 ONWGOSUB980,1010,1050,1090,1130,1170,1210,1250,1300,1340,1720,1770,1820
700 W=W-13:IFW<1THEN720
710 ONWGOSUB1880,1940,2000,2110,2220,2270
720 FORI=1TO9000:NEXT:IFRND(1)>.5ANDW<>W1THENW1=W:GOTO670
730 PRINTAL$;JA:PRINTKO$:G=INT(G)
740 IFAB<VW/2THENPRINT"[218]UM [194]AUEN SIND ES ZUWENIG [193]RBEITER":GOTO810
750 PRINT" [196]ER [194]AU DER [208]YRAMIDE GEHT WEITER ..."
760 FORI=1TO1500:NEXT
770 TS=TS+18*(AB/WK+AK*300/AB)
780 IFTS=>324THENEN=1:TS=324
790 GOSUB2490
800 PRINT"[147]"CHR$(14)
810 IFF<VW/2THENPRINT" [211]IE [210]UINIEREN ALLES ...":FORI=1TO400:NEXT:GOTO940
820 PRINTAL$;JA:PRINT"          [202] A H R E S B E R I C H T":PRINTKO$
830 IFAB+P<WK/1.5THENPRINT" [196]AS [204]EIDEN DER [194]EWOHNER IST GROSS.":UU=1
840 IFUU=1THENPRINT" [201]HRE [194]EVOELKERUNG IST ZU KLEIN ! : "
850 IFUU=1THENPRINT" [194]EVOELKERUNG :"AB+P
860 IFUU=1THENPRINT" [201]HR [212]OD IST SEHR GRAUSAM ! ":GOTO1400
870 JA=JA+1:IFJA=INT(JE/2)THENPRINT" [196]IE [200]AELFTE DER [218]EIT IST UM ..."
880 NW=INT(VW*TS/2*RND(1))+1:PRINTNW"[197]INWOHNER WURDEN GEBOREN..."
890 NT=INT(VW*TS/2*RND(1))+1:PRINTNT"[197]INWOHNER STARBEN ...":P=P+NW-NT
900 IFJA>JETHENPRINTAL$;JA:PRINTKO$:PRINT" [213]NFAEHIG EINE [208]YRAMIDE ZU BAUEN":GOTO940
910 IS=IS+NT:IE=IE+NW
920 PRINT" [197]IN NEUES [202]AHR BRICHT AN ...."
930 P=P+AB:AB=0:FORI=1TO9000:NEXT:GOTO410
940 REM ******* FEHLER ****************
950 POKE214,20:PRINT:PRINT"  [196]ER [208]HARAO MAG KEINE [198]EHLER ..."
960 PRINT"  [196]ESHALB WIRST DU HINGERICHTET ...":GOTO1400
970 REM ******* PRIESTER **************
980 KL=INT(G*RND(1))+1:PRINT" [196]IE [208]RIESTER DES [212]OTENGOTTES [193][206][213][194][201][211]"
990 PRINT" BESCHLAGNAHMEN"KL"[211]PEICHER MIT [203]ORN."
1000 G=G-KL:N=2:GOSUB1590:RETURN
1010 REM ******* FELDER WEG ************
1020 KL=INT(F/2*RND(1))+1:PRINT" [197]INFALLENDE [203]REUZRITTER RAUBEN"
1030 PRINTKL" [198]ELDER DER [208]ROVINZ ..."
1040 F=F-KL:N=2:GOSUB1590:RETURN
1050 REM ******* SONDERSTEUER **********
1060 GI=INT(100*RND(1)):PRINT" [197]INE [211]ONDERSTEUER ERBRACHTE"
1070 PRINT""GI"[146] [211]PEICHER VOLL [203]ORN ..."
1080 G=G+GI:N=1:GOSUB1590:RETURN
1090 REM ****** GESCHENK **************
1100 GI=INT(1000*RND(1)):PRINT" [196]ER [208]HARAO BELOHNT GUTE [193]RBEIT."
1110 PRINT" [196]EHALB SCHENKT ER"GI" [198]ELDER ..."
1120 F=F+GI:N=1:GOSUB1590:RETURN
1130 REM ****** FLUTWELLE *************
1140 KL=INT(100*RND(1)):PRINT" [197]INE [198]LUTWELLE VERWUESTETE"
1150 PRINTKL"[198]ELDER UNSERER [208]ROVINZ ..."
1160 F=F-KL:N=2:GOSUB1590:RETURN
1170 REM ****** EINWANDERUNG **********
1180 DA=INT(P*RND(1))+1:PRINT" [213]NSERE [208]ROVINZ IST BELIEBT !"
1190 PRINTDA"[204]EUTE WANDERTEN EIN ..."
1200 P=P+DA:N=2:GOSUB1590:RETURN
1210 REM ****** STERBEN ***************
1220 WE=INT(P*RND(1))+1:PRINT" [196]URCH EINE [197]PEDEMIE STARBEN "
1230 PRINT" LEIDER"WE"[204]EUTE."
1240 IS=IS+WE:P=P-WE:N=2:GOSUB1590:RETURN
1250 REM ****** ERDBEBEN **************
1260 IFTS<10THENPRINT" [199]LUECK GEHABT !! ":RETURN
1270 EI=INT(TS*RND(1))+1:PRINT" [196]URCH [197]RDBEBEN WURDEN"
1280 PRINTEI*199"[211]TEINBLOECKE DER [208]YRAMIDE ZERSTOERT."
1290 TS=TS-EI:N=2:GOSUB1590:RETURN
1300 REM ****** STREIK ****************
1310 TT=INT(AB*RND(1))+1:PRINT" [201]HRE [193]RBEITER STREIKEN."
1320 PRINT" [197]S KAM ZU BLUTIGEN [203]AEMPFEN.            [197]S STARBEN"TT" [193]RBEITER"
1330 IS=IS+TT:AB=AB-TT:N=2:GOSUB1590:RETURN
1340 REM ****** MORDVERSUCH ***********
1350 XX=INT(100*RND(1)):IFXX<40THEN1380
1360 PRINT" [211]IE SIND KNAPP EINEM [205]ORDANSCHLAG       ENTKOMMEN. [193]MON SEI [196]ANK"
1370 N=1:GOSUB1590:RETURN
1380 PRINT" [196]ER [205]OERDER WAR ERFOLGREICH UND         HAT [211]IE VON HINTEN "
1390 PRINT" GETOETET. [196]AS [214]OLK TRAUERT UM [211]IE ! ":N=2:GOSUB1590
1400 REM ****** ANGABE ****************
1410 PRINT"[158]":FOR T=1TO9000:NEXT:PRINT"[147]":PRINTKO$
1420 PRINT" [197]S STARBEN"IS"[204]EUTE."
1430 PRINT" [197]S WANDERTEN"IE" [204]EUTE EIN."
1440 IFW=10THEN1470
1450 PRINT" [205]OEGEN IHRE [199]EBEINE 1000 [202]AHRE "
1460 PRINT" IM [211]ANDE VERGRABEN SEIN ..."
1470 PRINTKO$:END
1480 REM ******* ENDE *****************
1490 PRINT"[147][158]"AL$;JA:PRINTKO$:PRINT" [211]IE HABEN ES WIDER [197]RWARTEN"
1500 PRINT" GESCHAFTT, DIE [208]YRAMIDE ZU [197]RBAUEN."
1510 PRINT" [201]HNEN WIRD NUN DIE UNGEHEUERE [197]HRE"
1520 PRINT" ZU [212]EIL, MIT [201]HREM [208]HARAO DARIN"
1530 PRINT" BEGRABEN ZU WERDEN."
1540 PRINT"[144]":END
1550 REM ******* POSITIV **************
1560 FORT1=0TO255STEP2:POKEM,T1:NEXT:RETURN
1570 REM ******* NEGATIV **************
1580 FORT1=255TO1STEP-4:POKEM,T1:POKEM,T1/1.5:NEXT:RETURN
1590 REM ******* TON ******************
1600 SI=54272:M=SI+8:POKESI+24,15:POKESI+7,0:POKESI+13,240:POKESI+12,0
1610 POKESI+9,125:POKESI+10,7:POKESI+11,65
1620 ONNGOSUB1550,1570
1630 POKEM,0:RETURN
1640 END
1650 REM ******* INVERS ***************
1660 FORI=1024TO1863:W1=PEEK(I)
1670 POKEI,W1+128*SGN(128-W1)
1680 NEXT:RETURN
1690 PRINTSK"[211]KLAVEN ALS [193]RBEITER ..."
1700 PRINTFE"[198]ELDER ..."
1710 PRINTGE"[211]PEICHER MIT [199]ETREIDE ..."
1720 REM ******* DIEBE ****************
1730 PRINT" [196]IEBE WAREN TAETIG !"
1740 WE=INT(G/2*RND(1)+1)
1750 PRINTWE"[203]ORNSPEICHER WURDEN LEERGERAEUMT."
1760 G=G-WE:N=2:GOSUB1590:RETURN
1770 REM ******* PHARAO STIBT *********
1780 PRINT" [196]ER [208]HARAO WIRD BALD STERBEN !"
1790 J1=INT(RND(1)*(JE-JA)/2)+1
1800 PRINT" [211]IE HABEN"J1"[202]AHRE WENIGER [218]EIT."
1810 JE=JE-J1:N=2:GOSUB1590:RETURN
1820 REM ******* SCHATZRAUB ***********
1830 PRINT" [211]IE HABEN WERTVOLLE [211]CHAETZE GERAUBT !"
1840 J1=INT(RND(1)*(JE-JA)/2)+1
1850 PRINT" [196]A MAN [211]IE ERWISCHT UND VERURTEILT"
1860 PRINT" HAT, WERDEN [211]IE"J1"[202]AHRE EINGESPERRT."
1870 JA=JA+J1:N=2:GOSUB1590:RETURN
1880 REM ******* BAUFEHLER ************
1890 PRINT" [211]IE HABEN [194]AUFEHLER BEGANGEN."
1900 WE=INT(RND(1)*TS+1)
1910 PRINT" [196]ESHALB WERDEN SIE DIE LETZTEN"
1920 PRINTWE*199"[211]TEINBLOECKE NEU BAUEN MUESSEN."
1930 TS=TS-WE:N=2:GOSUB1590:RETURN
1940 REM ******* ERBSCHAFT ************
1950 PRINT" [201]HR [194]RUDER IST GESTORBEN. [211]IE ERBEN     VON IHM EIN [214]ERMOEGEN."
1960 A1=INT(RND(1)*AB/2+1)
1970 PRINTA1"[211]KLAVEN KOENNEN [211]IE NUN KAUFEN,"
1980 PRINT" UM RASCHER BAUEN ZU KOENNEN."
1990 TS=TS+1:AB=AB+A1:N=1:GOSUB1590:RETURN
2000 REM ******* SCHLACHT + ***********
2010 SK=INT(RND(1)*AB/2):AB=AB+SK:IE=IE+SK
2020 F1=INT(RND(1)*VW):F=F+F1
2030 GE=INT(RND(1)*VW/3):G=G+GE
2040 PRINT" [196]ER [208]HARAO GEWANN[146] EINE GROSSE [211]CHLACHT"
2050 PRINT" GEGEN [206]UBIEN."
2060 PRINT" [197]R ERBEUTETE :"
2070 PRINTSK"[211]KLAVEN ALS [193]RBEITER ..."
2080 PRINTF1"[198]ELDER ..."
2090 PRINTGE"[211]PEICHER KONNTEN MIT [203]ORN GEFUELLT      WERDEN."
2100 N=1:GOSUB1590:RETURN
2110 REM ******* SCHLACHT - ***********
2120 SK=INT(RND(1)*P/2):P=P-SK:IS=IS+SK
2130 F1=INT(RND(1)*FB):F=F-F1
2140 GE=INT(RND(1)*G/3):G=G-GE
2150 PRINT" [196]ER [208]HARAO VERLOR[146] EINE GROSSE [211]CHLACHT"
2160 PRINT" GEGEN [206]UBIEN."
2170 PRINT" [211]EIN [194]ESITZ WURDE VERMINDERT UM :"
2180 PRINTSK"[197]INWOHNER ..."
2190 PRINTF1"[198]ELDER ..."
2200 PRINTGE"[211]PEICHER MIT KORN ..."
2210 N=2:GOSUB1590:RETURN
2220 REM ******* LEBENSELEXIER ********
2230 J1=INT(RND(1)*5)
2240 PRINT" [196]ER [208]HARAO HAT VON EINEM [205]AGIER EIN     [204]EBENSELEXIER ERHALTEN."
2250 PRINT" [197]R KANN[146] NUN"J1"[202]AHRE LAENGER LEBEN !"
2260 JE=JE+J1:N=1:GOSUB1590:RETURN
2270 REM ******* FISCHSEUCHE *********
2280 PRINT" [196]URCH [205]ACHENSCHAFTEN DER [206]UBIER IST"
2290 PRINT" DER [206]IL VERSEUCHT."
2300 GE=INT(RND(1)*G/1.5)+1
2310 PRINT" [196]AMIT DIE [197]INWOHNER NICHT VERHUNGERN,"
2320 PRINT" MUESSEN [211]IE"GE"WEITERE [203]ORNSPEICHER":PRINT" AUSGEBEN."
2330 PRINT " [196]ER [208]HARAO BEFIEHLT ES SO !!"
2340 G=G-GE:N=2:GOSUB1590:RETURN
2350 REM ******* BAUWERK **************
2360 PRINT"[147]":POKE214,23:PRINT:PRINT"       [144]DAS BAUERGEBNIS BIS HEUTE ..."
2370 Y=1865:PRINTCHR$(142)
2380 FORI=1864TO1904+39:POKEI,160:POKEI+54272,13:NEXT:I7=0
2390 FORI=1TO18:Y=Y+1
2400 FORT=1TO37-I*2:W3=160:POKEM,0
2410 PO=Y-40*I+T:IFT=1THENW3=233
2420 IFT=37-I*2THENW3=223
2430 IFI=18THENW3=81
2440 POKEPO,W3:POKEPO+54272,0:POKEM,10
2450 IFI7=>TSTHENT=40:I=20
2460 I7=I7+1:POKEM,0:NEXT:NEXT
2470 POKEV+5,60:POKEV+4,80:POKEV+21,4
2480 RETURN
2490 REM ****** SPRITES ***************
2500 POKE53280,14:POKE53281,14:POKEV+27,2:POKEV,0:POKEV+2,0
2510 GOSUB2350:XO=0:X1=0:Y=80:POKEV+21,7:POKEV+3,Y:POKEV+1,Y-25
2520 FORX=1TO360:X0=X:X1=X+20
2530 POKEV+16,INT(X0/255)+INT(X1/255)*2
2540 IFX1>255THENX1=X1-255
2550 IFX0>255THENX0=X0-255
2560 POKEV,X0:POKEV+2,X1
2570 NEXT:FORI=1TO400:NEXT
2580 POKEV+16,0:POKEV+21,0:POKEV+21,4
2590 IFEN=1THENGOSUB1650:GOSUB1650
2600 PRINT"[147]":POKE53280,0:POKE53281,0:IFEN=1THENPRINTCHR$(14):GOTO1480
2610 POKEV+21,0:RETURN